From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 31 Mar 1993 07:04:46 +0000 (+0000)
Subject: (read_char): Clear Vquit_flag when we return C-g for it.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96626
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=04904c29df40d7530ab811bb06115fb712421caf;p=emacs.git

(read_char): Clear Vquit_flag when we return C-g for it.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 2f8689ef13e..d80cf2d83e8 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1317,6 +1317,10 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
       XSET (internal_last_event_frame, Lisp_Frame, selected_frame);
       Vlast_event_frame = internal_last_event_frame;
 #endif
+      /* If we report the quit char as an event,
+	 don't do so more than once.  */
+      if (!NILP (Vinhibit_quit))
+	Vquit_flag = Qnil;
 
       goto non_reread;
     }